home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / prodpack.zip / DB4PPSRC.EXE / MAKEITEZ.PRG < prev    next >
Text File  |  1993-05-23  |  7KB  |  217 lines
  1. PROCEDURE MakeItEz
  2. PARAMETERS pc_dbf
  3. *----------------------------------------------------------------------------
  4. * NAME
  5. *   MakeItEz - Takes a design DBF file created with SCR2DBF and gets it
  6. *              ready for code gen.
  7. *
  8. * DESCRIPTION
  9. *   MakeItEz will tie the dialog box controls together to make it easier
  10. *   for code generation.  MakeItEz will do the following:       
  11. * 
  12. *   - Convert the row and column coordinates to match the dialog
  13. *     box window.  MakeItEz will place the new window row in Sys_flen,
  14. *     and the column in Length.
  15. * 
  16. *   - For edit controls, MakeItEz will place the right column of the
  17. *     field based on the template length into Decimals.
  18. * 
  19. *   - MakeItEz will alter the top row value for simple combo boxes 
  20. *     ( "CS_" prefix ) and place the window offset coordinates for the
  21. *     resulting popup into the CS_ object's Descript field as a 
  22. *     FROM ... TO ... clause.  Decimals is Hieght, Length is Width.
  23. *
  24. *   - MakeItEz will store the window definition for the dialog into
  25. *     the first box's Expression field.  MakeItEz will store the window
  26. *     name into the first box's Filename field.
  27. *
  28. * PARAMETERS
  29. *   pc_dbf     = name of the design DBF file with extension.
  30. *
  31. *----------------------------------------------------------------------------
  32.   PRIVATE lc_name, ln_winbotr, ln_winbotc, ln_rowoff, ln_coloff
  33.  
  34.   lc_name = _Proper( pc_dbf )
  35.  
  36.   *------------------------------------------------
  37.   *-- Get the box dimensions for the window offsets
  38.   *------------------------------------------------
  39.   LOCATE FOR value_type = "B"         && Get the first box
  40.   ln_rowoff  = row
  41.   ln_coloff  = col
  42.   ln_winbotr = row + decimals - 1
  43.   ln_winbotc = col + length - 1
  44.  
  45.   lc_windef = "FROM " + ;
  46.               STR( row, 2 ) + "," + STR( col, 2 ) + " TO " + ;
  47.               STR( ln_winbotr, 2 ) + "," + STR( ln_winbotc, 2)
  48.  
  49.   REPLACE filename WITH lc_name, ;
  50.           expression WITH lc_windef
  51.  
  52.   *-----------------------------------------------------------
  53.   *-- Pass over the edit controls, text, and titles to set the
  54.   *-- windows offset coordinates.
  55.   *-----------------------------------------------------------
  56.   GO TOP
  57.   SET FILTER TO 
  58.   SCAN
  59.     *------------------
  60.     *-- Skip over boxes
  61.     *------------------
  62.     IF value_type = "B"
  63.       LOOP
  64.     ENDIF
  65.  
  66.     *------------------------------
  67.     *-- Store the offset coordinate
  68.     *------------------------------
  69.     REPLACE sys_flen WITH row - ln_rowoff, ;
  70.             length   WITH col - ln_coloff
  71.  
  72.     IF value_type = "T"
  73.       REPLACE picfun WITH GetColor( display )
  74.     ENDIF
  75.  
  76.     lc_prefix = LEFT( fieldname, 3 )
  77.     lc_suffix = RIGHT( TRIM( fieldname ), 2 )
  78.  
  79.     *----------------------------------
  80.     *-- Check for a pick key assignment
  81.     *----------------------------------
  82.     ln_pick = AT( "~", template )
  83.     IF ln_pick > 0
  84.       lc_pick = SUBSTR( template, ln_pick + 1, 1 )
  85.       REPLACE pickkey WITH lc_pick
  86.       IF lc_prefix <> "BT_"
  87.         lc_text = LEFT( template, ln_pick - 1 )
  88.         lc_text = lc_text + TRIM( SUBSTR( template, ln_pick + 1 ) )
  89.         REPLACE descript WITH Delimit( lc_text )
  90.       ENDIF
  91.     ENDIF
  92.  
  93.     *----------------------------------------------------
  94.     *-- Check for an edit control to establish click zone
  95.     *----------------------------------------------------
  96.     IF ( lc_suffix = "_1" .AND. lc_prefix $ "EF_,CS_,CD_,CL_,LB_,UD_" ) .OR. ;
  97.        lc_prefix = "BT_" .OR. ;
  98.        ( lc_prefix $ "CK_,RB_,EF_" .AND. lc_suffix <> "_0" )
  99.  
  100.       *-------------------------------------------------------
  101.       *-- Need to do some extra work for buttons to get length
  102.       *-------------------------------------------------------
  103.       IF lc_prefix = "BT_"
  104.         lc_temp = TRIM( template )
  105.         ln_lentemp  = LEN( lc_temp )
  106.  
  107.         IF ln_pick > 0
  108.           lc_text = LEFT( template, ln_pick - 1 )
  109.           lc_text = lc_text + TRIM( SUBSTR( template, ln_pick + 1 ) )
  110.         ELSE
  111.           lc_text = lc_temp
  112.         ENDIF
  113.  
  114.         ln_fldlen = 0
  115.         ln = 1
  116.         DO WHILE ln <= ln_lentemp
  117.           IF SUBSTR( template, ln, 1 ) <> " "
  118.             ln_leadsp = ln - 1
  119.             IF "~" $ lc_temp
  120.               ln_fldlen = ln_lentemp + ln_leadsp - 1
  121.             ELSE
  122.               ln_fldlen = ln_lentemp + ln_leadsp
  123.             ENDIF
  124.             lc_text = lc_text + SPACE( ln_leadsp )
  125.             EXIT
  126.           ENDIF
  127.           ln = ln + 1
  128.         ENDDO
  129.         lc_text = lc_text 
  130.         REPLACE descript WITH Delimit( lc_text )
  131.       ELSE
  132.         ln_fldlen = LEN( TRIM( template ) ) - IIF( ln_pick > 0, 1, 0 )
  133.       ENDIF
  134.  
  135.       REPLACE decimals WITH col + ln_fldlen - 1
  136.     ENDIF
  137.  
  138.     *-----------------------------------------------------
  139.     *-- While we are here, if this is a "CS_" object, then
  140.     *-- get the popup definition
  141.     *-----------------------------------------------------
  142.     IF lc_prefix $ "CS_,CL_,CD_,LB_,UD_"
  143.       lc_fldname = _Proper( TRIM( fieldname ) )
  144.       SKIP
  145.       IF value_type = "B"
  146.         IF .NOT. ( lc_prefix $ "LB_,UD_" )
  147.           REPLACE row WITH row + 1, ;
  148.                   fieldname WITH UPPER( lc_fldname )
  149.         ELSE
  150.           REPLACE fieldname WITH UPPER( lc_fldname )
  151.         ENDIF
  152.         ln_top = row - ln_rowoff
  153.         ln_left = col - ln_coloff
  154.         IF lc_prefix = "UD_"
  155.           lc_popup = "DEFINE WINDOW " + lc_fldname + " FROM " + ;
  156.                      STR( ln_top, 2 ) + "+nRowCls, " + STR( ln_left, 2 ) + "+nCol TO " + ;
  157.                      STR( ln_top + decimals - 1, 2 ) + "+nRowCls, " + ;
  158.                      STR( ln_left + length - 1, 2 ) + "+nCol"
  159.         ELSE
  160.           lc_popup = "DEFINE POPUP " + lc_fldname + " FROM " + ;
  161.                      STR( ln_top, 2 ) + ", " + STR( ln_left, 2 ) + " TO " + ;
  162.                      STR( ln_top + decimals - 1, 2 ) + ", " + ;
  163.                      STR( ln_left + length - 1, 2 )
  164.         ENDIF  
  165.         SKIP -1
  166.  
  167.         REPLACE descript WITH lc_popup
  168.       ELSE
  169.         SKIP -1
  170.       ENDIF
  171.     ENDIF
  172.  
  173.   ENDSCAN
  174.  
  175. RETURN
  176. *-- EOP: MakeItEz WITH pc_dbf
  177.  
  178.  
  179.  
  180. FUNCTION Delimit
  181. PARAMETERS pcString
  182. *----------------------------------------------------------------------------
  183. * DESCRIPTION
  184. *
  185. * PARAMETERS
  186. *   pcString   = 
  187. *
  188. *----------------------------------------------------------------------------
  189.   IF ASC( pcString ) < 32
  190.     IF LEN( pcString ) = 1
  191.       lcResult = "CHR( " + ASC( pcString ) + " )"
  192.     ELSE
  193.       IF LEN( pcString ) = 0
  194.         lcResult = ""
  195.       ELSE
  196.         lcResult = "REPLICATE( CHR( " + ASC( pcString ) + " ), " + ;
  197.                     STR( LEN( pcString ) ) + " )"
  198.       ENDIF
  199.     ENDIF
  200.   ELSE
  201.     cLeft= '"'
  202.     cRight = '"'
  203.     IF AT( '"', pcString ) > 0
  204.       IF AT( "'", pcString ) > 0
  205.         cLeft = "["
  206.         cRight = "]"
  207.       ELSE
  208.         cLeft = "'"
  209.         cRight = "'"
  210.       ENDIF
  211.     ENDIF
  212.     lcResult = cLeft + pcString + cRight
  213.   ENDIF
  214.  
  215. RETURN( lcResult )
  216. *-- EOF: Delimit( pcString )
  217.